home *** CD-ROM | disk | FTP | other *** search
/ Cope with Cancer / Cope with Cancer.iso / pc / cope / comp.dxr / 00073.ls < prev    next >
Encoding:
Text File  |  1998-11-03  |  431 b   |  19 lines
  1. on mouseDown
  2.   global gcompCategory, gBackFRAME, gBackMOVIE
  3.   if count(gBackFRAME) = 0 then
  4.     puppetSound("button.aif ")
  5.     puppetSound("button.aif ")
  6.     go("beg")
  7.     if the visible of sprite 46 = 1 then
  8.       set the visible of sprite 46 to 0
  9.     end if
  10.   else
  11.     cursor(4)
  12.     set i to getLast(gBackFRAME)
  13.     set j to getLast(gBackMOVIE)
  14.     deleteOne(gBackFRAME, i)
  15.     deleteOne(gBackMOVIE, j)
  16.     go(i, j)
  17.   end if
  18. end
  19.